how to convert my wft file into ipm

Hi,

i am using 7.4.1 TS in Linux box i want to convert my older wft file into ipm. can any one help me on this please

my workflow file

================

<template_script><![CDATA[
#------------------------------------------------------------------------------
# File      email_template_html.wft
# Use       scrubs and deploys the email template files
#
# This template uses the following HTTP request keys:
#
#    iw_user           The name (user id) of the current user
#    iw_workarea       The workarea's vpath
#    iw_file           A list of files, each relative to iw_workarea
#    iw_template_file The path to this template file relative to
#                       iw-home/local/config/wft
#
# Copyright 2003 Interwoven Inc.
# All rights reserved.
#------------------------------------------------------------------------------

use TeamSite::Config;

# Set $debugging to 1 to enable debugging; 0 to disable.
my $debugging = 1;
# Returns the location of the TeamSite installation directory
my $iwhome = TeamSite::Config::iwgethome();

my $temp_dir = (($^O eq "MSWin32") ? "C:/temp" : "/tmp");
my $wft_base_name = __VALUE__('iw_template_file');
# Split the path into the part before the last slash (the directory) and
# the part after (the filename).
$wft_base_name =~ m|^(.*)[\\/]([^\\/]+)$|;
my $this_dir = $1;
$wft_base_name = $2;
$wft_base_name =~ s|\.[^\.]+$||; # Remove the extension

my $default_debug_file = "$iwhome/tmp/$wft_base_name.xml";

# The path to TeamSite Perl.
my $iwperl = "$iwhome/iw-perl/bin/iwperl";
my $wft_dir = TeamSite::Config::iwgetlocation("iwconfigs")."/wft";

my $command_1 = "$iwperl $iwhome/custom/bin/external_tasks/email_template_html.ipl";

for my $arg ( @arguments ) {
    # Put quotes around each argument in case there are spaces.
#    $command_1 .= ' "' . $arg . '"';
}

CGI_info(
    tag_table_options   => "border=0",
    error_label_bgcolor => "#EEEEEE" ,
    valid_bgcolor       => "#EEEEEE" ,
);

# Add debugging fields to the form if debugging has been switched on.
if ($debugging) {
    TAG_info(
        iw_output_file =>
             [ label       => '',
               html        => 'Write job spec to:'
                            . '<input type="text" value="'
                            . $default_debug_file . '" size="40">',
               is_required => 'false',
             ],
        iw_debug_mode =>
             [ label       => '',
               html        => '<input type="checkbox" value="true">'
                            . ' Display job spec instead',
               is_required => 'false',
             ],
    );
}

# Take the list of files in 'iw_file' and sort them in unencoded form.
my @submit_file = (__ELEM__('iw_file') ? sort __VALUE__('iw_file') : ());

]]></template_script><?xml version="1.0" standalone="no"?>
<!DOCTYPE workflow SYSTEM "iwwf.dtd">

<workflow name="email_template_prod"
          owner="__TAG__('iw_user');"
          creator="__TAG__('iw_user');"
          description="Direct Html Deploy Workflow">

    <externaltask name="modify_submit_files"
              owner="__TAG__('iw_user');"
              description="Scrub, submit, deploy files"
              start="t"
              readonly="t">
        <areavpath v="__TAG__('iw_workarea');"/>
        <successors>
            <successorset description="Retry Later">
             
                <succ v="end"/>
            </successorset>
        </successors>
        <command v='__INSERT__($command_1);'/>
        <template_script><![CDATA[
            if (@submit_file != 0)
            {
                __INSERT__("<files>\n");
                for (my $i=0; $i < @submit_file; ++$i)
                {
                    __INSERT__(" " x 12 . "<file path='$submit_file[$i]' " . "comment='__TAG__(File_comment_$i);'/>\n");

                }
                __INSERT__(" " x 8 . "</files>");
            }
        ]]></template_script>

    </externaltask>

    <endtask name="end">
    </endtask>

</workflow>

email_template_html.ipl

=======================

#!/opt/iba/cms/autonomy/TeamSite/iw-perl/bin/iwperl -w
#-----------------------------------------------------------------------------
# File    email_template_html.ipl
#
# Use     Program to scrub the email template files and deploy them to the destination
#           server
#
#
#
#
#
# Migrated from Windows 2003 to Linux Redhat
#
#-----------------------------------------------------------------------------

# Flush the output buffer right away.
$| = 1;

use strict; # Try to catch errors as early as possible.
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;
use File::Basename;
use File: Smiley Tongue ath;

my $iwhome = TeamSite::Config::iwgethome();
(my $basename = $0) =~ s|^.*[\\/]||;
$iwhome =~ tr|\\|/|; # Replace backslashed with forward slashes.

my $DEBUG = 1;

my @content;

my $log_file   = "$iwhome/local/logs/email_template_log.log";
my $debug_file = "$iwhome/local/logs/email_template_debug.log";
my @deleteArray;
sub INDENT () { ' ' }
my ($jobId, $taskId, $areavpath) = @ARGV[0..2];
my $job = TeamSite::WFworkflow->new($jobId);
my $task = TeamSite::WFtask->new($taskId);
my $area = $task->GetArea;
my @files = $task->GetFiles;
my $task_owner = $task->GetOwner;
$task_owner =~ m|.*\/(.*)|;
my $task_owner_id = $1;
$area =~ m|.*\/(.*)\/WORKAREA|;
my $site = $1;
$area =~ m|(.*)?\/WORKAREA\/|;
my $stage = $1."\/STAGING";
my $user = "$task_owner"; #get and store user running this script

if ($DEBUG) {
    #start_debug_log();
}

log_info("Starting");
log_info("Starting");
&main();
log_info("Done");

exit;

sub main {

           log_info("AREA ::: $area");
           log_info("STAGE ::: $stage");
           log_info("USER ::: $user");
           log_info("SITE ::: $site");
           delete_files();
           my $delArraysize = @deleteArray;
           my $fileArraysize = @files;

           if ($delArraysize > 0 && $fileArraysize == 0)
                    {
                   log_info("inside delete deploy");
                       del_submit_files();
                       my ($deploy_code,$deploy_results) = del_deploy_files();;
              print "\n\ndeploy_results = $deploy_results\n";
              if ($deploy_code > 0)
               {
               &deploy_failed_email($deploy_code,$deploy_results);
                      }
                    }
           elsif ($delArraysize == 0 && $fileArraysize > 0)
                 {
                   log_info("inside normal deploy");
                    &scrub_files();
                      &submit_files();
                      my ($deploy_code,$deploy_results) = &deploy_files();
                      print "\n\ndeploy_results = $deploy_results\n";
                      if ($deploy_code > 0)
                      {
                     &deploy_failed_email($deploy_code,$deploy_results);
                      }
           }
           # Record when the execution ended.
           debug('[END   ', timestamp(), " $0]");
            $task->CallBack(0, "Complete");
   }

   sub delete_files {
   print "<-------- Delete funtion starts here---------->\n";
    my $tudpath = "/shared/cms/tud/cms_app/cms";
           my $result = "";
           my $fileList = "/tmp/email_deploy_".$taskId.".txt";
           open (LIST,">$fileList");
           my $cmd = "${iwhome}/bin/iwlistmod $area";
           $result= `$cmd 2>&1`;
           print LIST $result."\n";
           close (LIST);

           open (F, '<', $fileList) || die $!;
           my @lines = <F>;
           my $i = 0;
           foreach my $file ( @files )
           {
           print "====== files: @files=======\n";
               foreach my $line (@lines)
               {

                               if ($line =~ $file)
                                {
                                      my $filesize = -s $fileList;
                                      print "<-------------find my file type here : $line-----> \n\n\n\n\n\n\n\n";
                                   if ( firstTwo("$line") eq 'x+' )
                                        {
                                       my $tempLine = extractFile($line);
                                       print "<-------------templine-----> \n";
                                       # push @deleteArray, $file;
                                       # unlink "$tudpath/$file";
                                       #push(@deleteArray, $tempLine);
                                       #my $delfile=$tudpath/$file;
                                       #system (rm -f $delfile);
                                       #push @deleteArray, $file;
                                       #unlink "$tudpath/$file";
                                       #my $num_removed = unlink $delfile;
                                       #print "delete file: $num_removed files were removed\n";
                                       #unlink $delfile or warn "Unable to remove '$delfile': $!";
                                       #unlink $delfile;
                                       #push(@deleteArray, $tempLine);
                                       my $delfile="$tudpath/$file";
                                       my $num_removed = unlink $delfile;
                                       print "delete file: $num_removed files were removed\n";
                                       print "file path :::: $tudpath/$file";
                                       #system "rm -f $tudpath/$file";
                                             }

                                }
                               else
                               {

                               }

               }
        $i++;
           }
   close (F);
   my $num_removed = unlink $fileList;
print "$num_removed files were removed\n";
   #unlink $fileList or warn "Unable to remove '$fileList': $!";


print "<-------- Delete funtion Ends here---------->\n";
} #delete sub
sub extractFile {
$_[0] =~ m|(\S+$)|;
return $1;
}

sub firstTwo {
$_[0] =~ m|(^.{2})|;
return $1;
}

sub del_deploy_files
{
   my $r_code = 0;
   my $result1 = "";
   my $result2 = "";
   my $fileList = "/tmp/email_deploy_".$taskId.".txt";
   log_info("INSIDE DELETE DEPLOY");
   log_info("FILELIST ====> $fileList ");
   log_info("fileList del_deploy_files= $fileList");
   open (LIST,">$fileList");

           for my $file ( @deleteArray )
           {
               if (($file =~ m|html\\direct|))
               {
                   print LIST $file."\n";
               }
           }

       close LIST;


                                      my $deployment1 = "emailtemplatehtml";
                                      my $deployment2 = "direct_NGN_web";
                                      my $destDir1 = "/shared/cms/tud/cms_app/cms";
                                      #my $destDir2 = "/opt/iba/cms/apache/direct";

                                       my $server = lc($ENV{COMPUTERNAME});


                                      #find(\&wanted, $destDir2);

                                      my $contentlen = @content;

                                      for (my $i=$contentlen;$i>0;$i--) {
                                         if (-f $content[$i]){
                                         unlink $content[$i];
                                         }
                                         if(-d $content[$i]){
                                         rmdir $content[$i];
                                         }
                                      }

                                      #my $secure_bat = "E:/cmssftp/scripts/scpweb.bat";

                                       my $cmd1= "/opt/iba/cms/autonomy/OpenDeployNG/bin/iwodcmd start \"$deployment1\" -k branch=\"/tmp\" -k dest_dir=\"$destDir1\" -k filelist=\"$fileList\"";


                                   log_info(" deploy command ::: $cmd1");

                                      #my $cmd2 = "/opt/iba/cms/autonomy/OpenDeployNG/bin/iwodcmd start $deployment2 -k branch=$stage -k dest_dir=$destDir2 -k filelist=$fileList ";

                                               $result1 = `$cmd1 2>&1`;
                                               #$result2 = `$cmd2 2>&1`;

           my $status = $?;
           $r_code = $status >>= 8;

                                               #print LISTER "$r_code \n";

                                                   # if($r_code == 0)
                                                   # {
                                                       # my $cmd3 = "$secure_bat";
                                                       # print LISTER "Calling Direct Web SCP.bat \n";
                                                       # $result2= `$cmd3 2>&1`;
                                                   # }
                                                   # else
                                                   # {
                                                   # print LISTER "Could not call Direct Web SCP.bat \n";
                                                   # }

           unlink $fileList;
                                   #code to delete temp scrubbed files
                                   for my $file ( @files ) {
                                       my $delFilePath = "/tmp/".$file;
                                       log_info("deleting ::: $delFilePath");
                                       unlink $delFilePath;
                                   }

}

#local submit to keep versions growing:
sub del_submit_files {
   log_info("INSIDE DELETE SUBMIT");
   for my $file ( @deleteArray )
           {
       my $sfile = $areavpath."/".$file;
       log_info("File ===> $sfile");

       my $cmd = $iwhome."/bin/iwsubmit -c \"Modified by user: $task_owner \" -i \"Modified by user: $task_owner \" " . $sfile . " \"Modified by workflow\" ";
       my $return = `$cmd 2>&1`;

}

} #submit_files sub

sub deploy_failed_email
{

   my ($dep_code,$dep_results) = @_;

   my $email_to   = $task_owner_id."\@transunion.com";
   my $email_from = "noreply\@transunion.com";
   my $email_subject = $ENV{COMPUTERNAME} . " - Direct Html Prod Deploy Failed" ;
   my $email_body = "Direct Html Prod Deploy Failed\n\nPlease contact the CMS Team\n" ;

   my %mail = ( To   => "$email_to",
                 From    => "$email_from",
                 Subject => "$email_subject",
                     smtp_temp    => '10.216.36.18',
                 smtp    => 'smtpint-n.corp.transunion.com',
                     smtp_old => 'linmail1prd.tuc.com'
               );

my $message = <<END_OF_BODY;
$email_body

Job: $jobId
Task: $taskId

END_OF_BODY

       if (scalar @files)
       {
           $message .= "Files:\n";
               for my $file ( @files )
               {
                  #$file =~ m|html\\direct\\(.*)|;
                  $file =~ m|.*(\..*$)|;
                  $message .= $1."\n";
               }
       }


       $message .= "\n\n" . "= = = " x 10 . "\n\nOpenDeploy Results: ".$dep_code."\n$dep_results\n" ;
       $mail{body} = $message;
       sendmail(%mail) or die $Mail: Smiley Frustrated endmail::error;
}

sub submit_files
{
    if (scalar @files) {
               for my $file ( @files ) {
                   my $fullFile = $areavpath."/".$file;
                   log_info("fullFile path in submit files = $fullFile");
                   my $cmd = $iwhome."/bin/iwsubmit -c \"Modified by user: $task_owner \" -i \"Modified by user: $task_owner \" " . $fullFile . " \"Modified by workflow\" ";

                   log_info("Submit: " . $cmd);

                   my $return = `$cmd 2>&1`;

                   log_info("Submit Return: ".chomp($return));

               }
    }
}

sub deploy_files
{
   my $r_code = 0;
   my $result1 = "";
   my $result2 = "";
   log_info("Going to open and write to a file");
    if (scalar @files) {

           my $fileList = "/tmp/email_deploy_".$taskId.".txt";
           log_info("fileList path in deploy files = $fileList");
           open(my $fh, '>>',"$fileList") or die "Could not open file '$fileList' $!";

           for my $file ( @files ) {
               print $fh $file."\n";
           }

           close $fh;
           log_info("Filelist written to temp file");

                          my $deployment1 = "emailtemplatehtml";
                          my $deployment2 = "direct_NGN_web";
                          my $destDir1 = "/shared/cms/tud/cms_app/cms";
                          #my $destDir2 = "E:/cmssftp/directwebcontent";

           my $server = lc($ENV{COMPUTERNAME});


                          #find(\&wanted, $destDir2);

                          my $contentlen = @content;

                          for (my $i=$contentlen;$i>0;$i--) {
                             if (-f $content[$i]){
                             unlink $content[$i];
                             }
                             if(-d $content[$i]){
                             rmdir $content[$i];
                             }
                          }

                          #my $secure_bat = "E:/cmssftp/scripts/scpweb.bat";

                          my $cmd1= "/opt/iba/cms/autonomy/OpenDeployNG/bin/iwodcmd start \"$deployment1\" -k branch=\"/tmp\" -k dest_dir=\"$destDir1\" -k filelist=\"$fileList\"";

                               log_info(" deploy command ::: $cmd1");

                       # my $cmd2 = "/opt/iba/cms/autonomy/OpenDeployNG/bin/iwodcmd start $deployment2 -k branch=$stage -k dest_dir=$destDir2 -k filelist=$fileList ";

                                   $result1 = `$cmd1 2>&1`;
                                   #$result2 = `$cmd2 2>&1`;

                                       my $status = $?;
                                       $r_code = $status >>= 8;

                                       #print LISTER "$r_code \n";

                                       # if($r_code == 0)
                                       # {
                                           # my $cmd3 = "$secure_bat";
                                           # print LISTER "Calling Direct Web SCP.bat \n";
                                           # $result2= `$cmd3 2>&1`;
                                       # }
                                       # else
                                       # {
                                       # print LISTER "Could not call Direct Web SCP.bat \n";
    # }

                                   unlink $fileList;
                                   }
                                   #code to delete temp scrubbed files
                                   for my $file ( @files ) {
                                       my $delFilePath = "/tmp/".$file;
                                       log_info("deleting ::: $delFilePath");
                                       unlink $delFilePath;
                                   }

                                                   return ($r_code,$result1);
}

sub scrub_files
{
    # Files
    if (scalar @files) {
        log_info(INDENT, 'Files');
        for my $file ( @files ) {
                         my $fullFile = $areavpath."/".$file;
                   log_info("Scrubbing $fullFile");

                   log_info(INDENT x 2, $fullFile);

                   $fullFile =~ m|.*(\..*$)|;

                   my $fileExt = $1;

                   log_info(INDENT x 3, "File Extension: ".$fileExt);
                   if ($fileExt eq ".html") {
#                   if ($fileExt eq ".html" or $fileExt eq ".css") {

                       open (IN,"<$fullFile");
                       local $/ = undef;
                       my $file_contents = <IN>;
                       close(IN);

                       if ($site eq "direct") {
                           $site = "direct";
                       }

                       # use the Perl qr// syntax to make a variable work in a regular expression
                       # If $site = "hongkong", and we execute this statement:
                       #    my $re = qr/$site/;
                       # Then these 2 statements are equivalent:
                       #    $file_contents =~ s|/html/hongkong||gs;
                       #    $file_contents =~ s|/html/${re}||gs;

                       my $re = qr/$site/;
                       #$string =~ /(.*)(${re})(.*)/;


#mapArray[1][0] = "English|/sites/ca/interstitial/australia_en.page|Yes";
                       #$file_contents =~ s|/html/hongkong||gs;
                       $file_contents =~ s|/html/${re}||gs;

                       # only make these changes for .html files
                       if ($fileExt eq ".html") {

                           # in order to preserve fully qualified links to .page files, which are valid,
                           # rename all the links that start with "http" and end with ".page", so we can put them back later
                           # something unique: ~~EGAP~~ ( 2 tildas, the word "page" backwords and in upper case, 2 more tildas

                           $file_contents =~ s|(http.*?)\.page|$1\.~~EGAP~~|gm;

                           # we also need to preserve fully qualified links to .page files
                           # i.e. India in the selector (http://www.transunion.com/sites/corporate/interstitial/india.page)
                           # so we do something similar to above - rename FULLY QUALIFIED links that contain "/sites/" to
   &

Find more posts tagged with

Comments

There are no comments yet